Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / FERN.BAS < prev next >
Unknown | 1995-09-27 | 1.8 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3c 07 00 00 0d 0a 27 20 | 43 72 65 61 74 65 20 61 |<.....' |Create a|
|00000010| 20 66 65 72 6e 20 75 73 | 69 6e 67 20 61 20 66 72 | fern us|ing a fr|
|00000020| 61 63 74 61 6c 20 66 6f | 72 6d 75 6c 61 20 0d 0a |actal fo|rmula ..|
|00000030| 0d 0a 27 20 41 75 74 68 | 6f 72 3a 09 41 6e 64 72 |..' Auth|or:.Andr|
|00000040| 65 61 20 42 65 6e 6f 6e | 69 09 09 09 20 72 65 76 |ea Benon|i... rev|
|00000050| 3a 09 31 2e 32 0d 0a 0d | 0a 0d 0a 66 6c 6f 61 74 |:.1.2...|...float|
|00000060| 20 20 09 69 2c 6e 65 77 | 78 2c 6e 65 77 79 2c 72 |  .i,new|x,newy,r|
|00000070| 2c 6b 2c 78 2c 79 2c 78 | 73 2c 79 73 2c 7a 0d 0a |,k,x,y,x|s,ys,z..|
|00000080| 44 65 76 43 6f 6e 09 4f | 62 6d 70 0d 0a 52 47 42 |DevCon.O|bmp..RGB|
|00000090| 09 70 69 78 0d 0a 0d 0a | 70 69 78 2e 67 72 65 65 |.pix....|pix.gree|
|000000a0| 6e 3d 32 35 35 0d 0a 78 | 73 3d 35 30 30 0d 0a 79 |n=255..x|s=500..y|
|000000b0| 73 3d 34 35 30 0d 0a 4f | 62 6d 70 3d 43 72 65 61 |s=450..O|bmp=Crea|
|000000c0| 74 65 49 6d 61 67 65 28 | 78 73 2c 79 73 2c 38 29 |teImage(|xs,ys,8)|
|000000d0| 0d 0a 53 65 74 50 61 6c | 65 74 74 65 28 4f 62 6d |..SetPal|ette(Obm|
|000000e0| 70 2c 31 2c 70 69 78 29 | 0d 0a 0d 0a 0d 0a 66 6f |p,1,pix)|......fo|
|000000f0| 72 20 69 3d 30 20 74 6f | 20 31 35 30 30 30 0d 0a |r i=0 to| 15000..|
|00000100| 20 20 20 20 20 72 3d 69 | 6e 74 28 72 61 6e 64 20 |     r=i|nt(rand |
|00000110| 28 31 30 29 29 0d 0a 20 | 20 20 20 20 69 66 28 72 |(10)).. |    if(r|
|00000120| 3e 33 2e 39 29 0d 0a 20 | 20 20 20 20 20 20 20 72 |>3.9).. |       r|
|00000130| 3d 31 0d 0a 20 20 20 20 | 20 65 6e 64 69 66 0d 0a |=1..    | endif..|
|00000140| 0d 0a 20 20 20 20 20 20 | 20 27 20 66 65 6c 63 5b |..      | ' felc[|
|00000150| 34 5d 5b 33 5d 5b 34 5d | 20 3d 20 7b 20 20 20 20 |4][3][4]| = {    |
|00000160| 20 30 2c 20 20 20 30 2c | 20 20 30 2c 20 20 30 2c | 0,   0,|  0,  0,|
|00000170| 20 20 20 20 20 20 20 20 | 30 2c 20 20 32 30 2c 20 |        |0,  20, |
|00000180| 20 20 30 2c 20 20 20 30 | 2c 20 20 20 20 20 20 30 |  0,   0|,      0|
|00000190| 2c 20 20 20 20 30 2c 20 | 20 30 2c 20 20 20 30 2c |,    0, | 0,   0,|
|000001a0| 0d 0a 20 20 20 20 20 20 | 20 27 20 20 20 20 20 20 |..      | '      |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 38 35 2c | 20 20 20 30 2c 20 20 30 |     85,|   0,  0|
|000001d0| 2c 20 20 30 2c 20 20 20 | 20 20 20 20 20 30 2c 20 |,  0,   |     0, |
|000001e0| 20 38 35 2c 20 31 31 2c | 20 37 30 2c 20 20 20 20 | 85, 11,| 70,    |
|000001f0| 20 20 30 2c 20 2d 31 30 | 2c 20 38 35 2c 20 20 30 |  0, -10|, 85,  0|
|00000200| 2c 0d 0a 20 20 20 20 20 | 20 20 27 20 20 20 20 20 |,..     |  '     |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 20 20 20 20 20 20 33 31 | 2c 20 2d 34 31 2c 20 20 |      31|, -41,  |
|00000230| 30 2c 20 20 30 2c 20 20 | 20 20 20 31 30 2c 20 20 |0,  0,  |   10,  |
|00000240| 32 31 2c 20 20 20 30 2c | 20 32 31 2c 20 20 20 20 |21,   0,| 21,    |
|00000250| 20 20 30 2c 20 20 20 20 | 30 2c 20 33 30 2c 20 20 |  0,    |0, 30,  |
|00000260| 30 2c 0d 0a 20 20 20 20 | 20 20 20 27 20 20 20 20 |0,..    |   '    |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000280| 20 20 20 20 20 20 2d 32 | 39 2c 20 20 34 30 2c 20 |      -2|9,  40, |
|00000290| 20 30 2c 20 20 30 2c 20 | 20 20 20 20 31 30 2c 20 | 0,  0, |    10, |
|000002a0| 20 31 39 2c 20 20 20 30 | 2c 20 35 36 2c 20 20 20 | 19,   0|, 56,   |
|000002b0| 20 20 20 30 2c 20 20 20 | 20 30 2c 20 33 30 2c 20 |   0,   | 0, 30, |
|000002c0| 20 30 20 7d 3b 0d 0a 0d | 0a 20 20 20 20 20 20 20 | 0 };...|.       |
|000002d0| 20 69 66 28 72 3d 30 29 | 0d 0a 20 20 20 20 20 20 | if(r=0)|..      |
|000002e0| 20 20 20 20 20 6e 65 77 | 78 20 3d 20 28 28 20 30 |     new|x = (( 0|
|000002f0| 20 2a 20 78 29 20 2b 28 | 20 20 20 30 20 2a 20 79 | * x) +(|   0 * y|
|00000300| 29 20 2b 28 30 20 2a 20 | 7a 29 29 20 2f 20 31 30 |) +(0 * |z)) / 10|
|00000310| 30 20 2b 20 30 0d 0a 20 | 20 20 20 20 20 20 20 20 |0 + 0.. |        |
|00000320| 20 20 6e 65 77 79 20 3d | 20 28 28 20 30 20 2a 20 |  newy =| (( 0 * |
|00000330| 78 29 20 2b 28 20 32 30 | 20 2a 20 79 29 20 2b 28 |x) +( 20| * y) +(|
|00000340| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000350| 30 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 7a 20 |0..     |      z |
|00000360| 3d 20 20 20 20 20 20 20 | 28 28 20 30 20 2a 20 78 |=       |(( 0 * x|
|00000370| 29 20 2b 28 20 20 20 30 | 20 2a 20 79 29 20 2b 28 |) +(   0| * y) +(|
|00000380| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000390| 30 0d 0a 20 20 20 20 20 | 20 20 20 65 6e 64 69 66 |0..     |   endif|
|000003a0| 0d 0a 20 20 20 20 20 20 | 20 20 69 66 28 72 3d 31 |..      |  if(r=1|
|000003b0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 6e 65 |)..     |      ne|
|000003c0| 77 78 20 3d 20 28 28 20 | 38 35 20 2a 20 78 29 20 |wx = (( |85 * x) |
|000003d0| 2b 28 20 20 20 20 20 20 | 30 20 2a 20 79 29 20 2b |+(      |0 * y) +|
|000003e0| 28 20 20 30 20 2a 20 7a | 29 29 20 2f 20 31 30 30 |(  0 * z|)) / 100|
|000003f0| 20 2b 20 20 20 30 0d 0a | 20 20 20 20 20 20 20 20 | +   0..|        |
|00000400| 20 20 20 6e 65 77 79 20 | 3d 20 28 28 20 20 20 30 |   newy |= ((   0|
|00000410| 20 2a 20 78 29 20 2b 28 | 20 20 20 38 35 20 2a 20 | * x) +(|   85 * |
|00000420| 79 29 20 2b 28 31 31 20 | 2a 20 7a 29 29 20 2f 20 |y) +(11 |* z)) / |
|00000430| 31 30 30 20 2b 20 37 30 | 0d 0a 20 20 20 20 20 20 |100 + 70|..      |
|00000440| 20 20 20 20 20 7a 20 3d | 20 20 20 20 20 20 20 20 |     z =|        |
|00000450| 28 28 20 20 20 30 20 2a | 20 78 29 20 2b 28 2d 31 |((   0 *| x) +(-1|
|00000460| 30 20 2a 20 79 29 20 2b | 28 38 35 20 2a 20 7a 29 |0 * y) +|(85 * z)|
|00000470| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|00000480| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000490| 20 20 20 20 20 69 66 28 | 72 3d 32 29 0d 0a 20 20 |     if(|r=2)..  |
|000004a0| 20 20 20 20 20 20 20 20 | 20 6e 65 77 78 20 3d 20 |        | newx = |
|000004b0| 28 28 20 33 31 20 2a 20 | 78 29 20 2b 28 20 2d 34 |(( 31 * |x) +( -4|
|000004c0| 31 20 2a 20 79 29 20 2b | 28 20 30 20 2a 20 7a 29 |1 * y) +|( 0 * z)|
|000004d0| 29 20 2f 20 31 30 30 20 | 2b 20 20 20 30 0d 0a 20 |) / 100 |+   0.. |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 6e 65 77 79 20 3d |        |  newy =|
|000004f0| 20 20 28 28 20 31 30 20 | 2a 20 78 29 20 2b 28 20 |  (( 10 |* x) +( |
|00000500| 20 20 20 20 20 32 31 20 | 2a 20 79 29 20 2b 28 20 |     21 |* y) +( |
|00000510| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000520| 32 31 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 7a |21..    |       z|
|00000530| 20 3d 20 20 20 20 20 20 | 20 20 28 28 20 20 20 20 | =      |  ((    |
|00000540| 30 20 2a 20 78 29 20 2b | 28 20 20 20 20 20 20 20 |0 * x) +|(       |
|00000550| 30 20 2a 20 79 29 20 2b | 28 33 30 20 2a 20 7a 29 |0 * y) +|(30 * z)|
|00000560| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|00000570| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000580| 20 20 20 20 20 69 66 28 | 72 3d 33 29 0d 0a 20 20 |     if(|r=3)..  |
|00000590| 20 20 20 20 20 20 20 20 | 20 6e 65 77 78 20 3d 20 |        | newx = |
|000005a0| 28 28 20 2d 32 39 20 2a | 20 78 29 20 2b 28 20 34 |(( -29 *| x) +( 4|
|000005b0| 30 20 2a 20 79 29 20 2b | 28 20 20 30 20 2a 20 7a |0 * y) +|(  0 * z|
|000005c0| 29 29 20 2f 20 31 30 30 | 20 2b 20 20 20 30 0d 0a |)) / 100| +   0..|
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 6e 65 77 79 20 |        |   newy |
|000005e0| 3d 20 28 28 20 20 20 20 | 20 31 30 20 2a 20 78 29 |= ((    | 10 * x)|
|000005f0| 20 2b 28 20 31 39 20 2a | 20 79 29 20 2b 28 20 20 | +( 19 *| y) +(  |
|00000600| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000610| 35 36 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 7a |56..    |       z|
|00000620| 20 3d 20 20 20 20 20 20 | 20 20 28 28 20 20 20 20 | =      |  ((    |
|00000630| 20 20 20 20 30 20 2a 20 | 78 29 20 2b 28 20 20 20 |    0 * |x) +(   |
|00000640| 30 20 2a 20 79 29 20 2b | 28 33 30 20 2a 20 7a 29 |0 * y) +|(30 * z)|
|00000650| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|00000660| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000670| 20 20 20 20 20 78 3d 6e | 65 77 78 0d 0a 20 20 20 |     x=n|ewx..   |
|00000680| 20 20 20 20 20 79 3d 6e | 65 77 79 0d 0a 0d 0a 20 |     y=n|ewy.... |
|00000690| 20 20 20 20 20 20 20 20 | 53 65 74 50 69 78 65 6c |        |SetPixel|
|000006a0| 28 4f 62 6d 70 2c 78 2b | 7a 2b 33 30 30 2c 34 30 |(Obmp,x+|z+300,40|
|000006b0| 30 2d 79 2c 70 69 78 29 | 0d 0a 0d 0a 20 20 20 69 |0-y,pix)|....   i|
|000006c0| 66 20 28 20 69 25 31 30 | 30 30 3d 30 29 0d 0a 20 |f ( i%10|00=0).. |
|000006d0| 20 20 20 20 20 50 72 65 | 76 69 65 77 28 4f 62 6d |     Pre|view(Obm|
|000006e0| 70 2c 22 4f 75 74 70 75 | 74 22 2c 35 2c 35 2c 4f |p,"Outpu|t",5,5,O|
|000006f0| 62 6d 70 2e 57 69 64 74 | 68 2b 31 30 2c 4f 62 6d |bmp.Widt|h+10,Obm|
|00000700| 70 2e 48 65 69 67 68 74 | 2b 33 30 29 09 0d 0a 20 |p.Height|+30)... |
|00000710| 20 20 65 6e 64 69 66 0d | 0a 4e 65 78 74 20 69 0d |  endif.|.Next i.|
|00000720| 0a 0d 0a 44 73 70 57 68 | 69 6c 65 28 22 22 2c 30 |...DspWh|ile("",0|
|00000730| 29 0d 0a 44 73 70 4d 65 | 73 28 22 45 6e 64 22 29 |)..DspMe|s("End")|
+--------+-------------------------+-------------------------+--------+--------+